home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 1
/
MacMania 1.toast
/
Educational
/
Misc.
/
Class Administrator
/
SetUpStack
/
background_7357.txt
< prev
next >
Wrap
Text File
|
1990-07-06
|
7KB
|
326 lines
-- background: 7357 from stack: in
-- bmap block id: 4131
-- flags: 0000
-- background id: 0
-- name: Grades
----- HyperTalk script -----
on openStack
hide message box
show menuBar
pass openStack
end openStack
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=291 top=0 right=23 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
go to next card
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=0 right=23 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
go to prev card
end mouseUp
-- part 103 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=170 top=90 right=314 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PtsPoss1
-- part 104 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=393 top=90 right=314 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PtsPoss2
-- part 54 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=18 top=90 right=314 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Column One
----- HyperTalk script -----
on MouseUp
end MouseUp
-- part 55 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=251 top=90 right=314 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Column 2
-- part 56 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=209 top=90 right=314 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Column 3
-- part 57 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=445 top=90 right=313 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Column 4
-- part 58 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=53 top=34 right=54 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Name
-- part 60 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=383 top=1 right=21 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Student Profile
----- HyperTalk script -----
on mouseUp
put char 1 of word 1 of field "Name" into temp
put temp & word 2 of field "Name" & "Profile" into cardname
visual effect iris close
go to card cardname
end mouseUp
-- part 61 (field)
-- low flags: 01
-- high flags: 4001
-- rect: left=435 top=63 right=76 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Points
----- HyperTalk script -----
On MouseUp
set lockscreen to true
put 0 into field "Points"
repeat with x = 1 to number of lines in field "Column One"
add line x of field "Column 3" to field "Points"
end repeat
repeat with x = 1 to number of lines in field "Column 2"
add line x of field "Column 4" to field "Points"
end repeat
put field "Points" into TotalPoints
put TotalPoints into card field "Total Points"
put 0 into PointsPossible
repeat with x = 1 to number of lines in field "PtsPoss1"
add line x of field "PtsPoss1" to PointsPossible
end repeat
repeat with x = 1 to number of lines in field "PtsPoss2"
add line x of field "PtsPoss2" to PointsPossible
end repeat
put PointsPossible into field "Possible"
divide field "Points" by PointsPossible
Multiply field "Points" by 100
set lockscreen to false
end MouseUp
-- part 62 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=460 top=51 right=64 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Possible
-- part 101 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=74 top=0 right=25 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
answer "What do you wish to print?" with "This card" or "Missing"
if it is "This card" then
open printing
print this card
close printing
else
put 1 into x
put the number of lines in field 1 into fieldlines
repeat until x > fieldlines
if line x of field 3 is empty then
put line x of field 1 into cardname
push this card
go to LessonPlan
go to card cardname
open printing
print this card
close printing
pop card
end if
add 1 to x
end repeat
put 1 into x
put the number of lines in field 2 into fieldlines
repeat until x > fieldlines
if line x of field 4 is empty then
put line x of field 2 into cardname
push this card
go to LessonPlan
go to card cardname
open printing
print this card
close printing
pop card
end if
add 1 to x
end repeat
end if
end mouseUp
-- part 102 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=17 bottom=19
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
Push this card
go to helper
end mouseUp